home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Generators / Grammars / gen-trans < prev    next >
Text File  |  1998-10-23  |  934b  |  44 lines
  1. gen-trans symbol depth &optional tree
  2.  
  3. Generates an association structure of symbol at given depth. Symbol's association structure is transposed at each level by the current depth value. Useful function when creating melodies and chords.
  4.  
  5. (initdef)
  6. (defsym a '(a b))
  7. (defsym b '(c d e))
  8.  
  9. (gen-trans a 3)
  10. --> (a b c d e d f g h c e f g)
  11.  
  12. (gen-notrans a 3)
  13. --> (a a a a b b c d e b c d e)
  14.  
  15. (listdef a 3)
  16.  a
  17.    a
  18.      a
  19.        a
  20.        b
  21.      b
  22.        c
  23.        d
  24.        e
  25.    b
  26.      c
  27.      d
  28.      e
  29.  
  30. The :tree is 'default if not given. If you want to keep multiple definitions in memory at the same time without interference problems use different trees.
  31.  
  32. (initdef 'melody1)
  33. (defsym a '(a b) :tree 'melody1)
  34. (defsym b '(a b) :tree 'melody1)
  35. (gen-trans a 3 'melody1)
  36. --> (a b c d e d d e c c d e d d e)
  37.  
  38. (initdef 'melody2)
  39. (defsym a '(b c) :tree 'melody2)
  40. (defsym c '(a c) :tree 'melody2)
  41. (gen-trans a 3 'melody2)
  42. --> (a c d c e f e d f)
  43.  
  44.